Plots

Row

Number of Penguins

344

Avg Body Mass

Column

Scatter Plot of bill length vs bill depth

Boxplot of body mass by sex

Histogram of flipper length by species

Data

---
title: "AD_Class"
output: 
  flexdashboard::flex_dashboard:
    orientation: row
    vertical_layout: fill
    social: ["menu"]
    source_code: embed
    theme:
      version: 4
      booswatch: sandstone
---

```{r setup, include=FALSE}
library(flexdashboard)
library(palmerpenguins)
library(tidyverse)
library(DT)
library(plotly)
library(fontawesome)
data("penguins")

```


Plots {data-navmenu="Pages"}
=======================================================================

Sidebar {.sidebar}
-----------------------------------------------------------------------

### Penguin Stats

The total number of penguins in the data is `r nrow(penguins)` 

Row 
-----------------------------------------------------------------------

### Number of Penguins

```{r}
valueBox(nrow(penguins), icon = "fa-linux")
```

### Avg Body Mass

```{r}
avg_mass = round(mean(penguins$body_mass_g, na.rm = T), 1)
gauge(avg_mass, 
      min = 0, 
      max = max(penguins$body_mass_g, na.rm = T),
      gaugeSectors(success = c(4000,6300),
                   warning = c(2000, 3999),
                   danger = c(0, 1999)))
```



Column {.tabset}
-----------------------------------------------------------------------

### Scatter Plot of bill length vs bill depth

```{r}
a = penguins %>% ggplot(aes(x = bill_length_mm, y = bill_depth_mm, color = species))+geom_point()
ggplotly(a)
```



### Boxplot of body mass by sex

```{r}
penguins %>% ggplot(aes(x = body_mass_g, y = sex, fill = sex))+geom_boxplot()
```

### Histogram of flipper length by species

```{r}
penguins %>% ggplot(aes(x = flipper_length_mm, fill = species))+geom_histogram()+
  facet_wrap(~species)
```

Data {data-navmenu="Pages"}
================================================================================

```{r}
penguins %>% datatable(extensions = "Buttons",
                       options = list(dom = "Blfrtip",
                                      buttons = c("copy", "csv", "excel", "pdf", "print")))
```